home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / kyzeramo.lha / Squares.s < prev    next >
Text File  |  1992-09-03  |  788b  |  63 lines

  1. ; The Munching Squares!
  2. CLR    ; comment out this to CLEAR the squares
  3.  
  4.  IFD CLR
  5. ; MUNCHING SQUARES
  6. ;
  7. ; A0=BPLPTR
  8.     moveq.w    #0,d1
  9. tloop    moveq.w    #0,d0
  10. xloop    move.w    d0,d2
  11.     eor.w    d1,d2
  12.  
  13.     mulu    #40,d2
  14.     clr.l    d7
  15.     move.w    d0,d7
  16.     asr.w    #3,d7
  17.     add.w    d7,d2
  18.     asl.w    #3,d7
  19.     sub.w    d0,d7
  20.     subq.w    #1,d7
  21.     move.l    a0,a1
  22.     adda.l    d2,a1
  23.     bset    d7,(a1)
  24.  
  25.     addq.b    #1,d0
  26.     bne.s    xloop
  27.  
  28. wvbl    tst.b    $dff005
  29.     bne.s    wvbl
  30. wvbl2    tst.b    $dff005
  31.     beq.s    wvbl2
  32.  
  33.     addq.b    #1,d1
  34.     bne.s    tloop
  35.     rts
  36.  ELSEIF
  37. ; FADE OUT MUNCHING SQUARES
  38. ;
  39. ; STILL A0=BPLPTR!!
  40.     moveq.w    #0,d1
  41. tloop    moveq.w    #0,d0
  42. xloop    move.w    d0,d2
  43.     eor.w    d1,d2
  44.  
  45.     mulu    #40,d2
  46.     clr.l    d7
  47.     move.w    d0,d7
  48.     asr.w    #3,d7
  49.     add.w    d7,d2
  50.     asl.w    #3,d7
  51.     sub.w    d0,d7
  52.     subq.w    #1,d7
  53.     move.l    a0,a1
  54.     adda.l    d2,a1
  55.     bclr    d7,(a1)
  56.  
  57.     addq.b    #1,d0
  58.     bne.s    xloop
  59.     addq.b    #1,d1
  60.     bne.s    tloop
  61.     rts
  62.  ENDC
  63.